autocad lisp add number